home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / CASECON6.PGM < prev    next >
Text File  |  1994-08-22  |  3KB  |  77 lines
  1. *Program to set up cases and controls for PSP study
  2. READ EPIDEMIC
  3. DEFINE GROUP STRING WIDTH = 7
  4. *Set up a defined variable, to be "Case", "Control", or "Other"
  5. DEFINE NEURO number global width =4  0
  6. DEFINE MOTOR #### global 0
  7. *Variables for number of neuro and motor symptoms
  8.  
  9. *define sets both to zero before each record
  10. IF LIPS = "Y" THEN NEURO = NEURO + 1
  11. IF FACE = "Y" THEN NEURO = NEURO + 1
  12. IF EARS = "Y" THEN NEURO = NEURO + 1
  13. IF FINGERS = "Y" THEN NEURO = NEURO + 1
  14. IF TOES = "Y" THEN NEURO = NEURO + 1
  15. IF LEGS = "Y" THEN NEURO = NEURO + 1
  16. IF ARMS = "Y" THEN NEURO = NEURO + 1
  17.  
  18. IF  TALKING = "Y" THEN MOTOR = MOTOR + 1
  19. IF  WALKING = "Y" THEN MOTOR = MOTOR + 1
  20. IF  GETTINGUP= "Y" THEN MOTOR = MOTOR + 1
  21. IF  BREATHING= "Y" THEN MOTOR = MOTOR + 1
  22. IF  DIZZINESS= "Y" THEN MOTOR = MOTOR + 1
  23. *NEURO and MOTOR now contain the symptom counts
  24.  
  25. LET GROUP = "       "
  26. *Set GROUP to blank.  This is important!!
  27. IF (ILL = "Y") AND (DATEONSET = "07/30") AND (HEADACHE = "Y") AND\
  28.    (NEURO >= 2) AND (MOTOR >= 2) THEN GROUP = "CASE"
  29. *Use all the case criteria to label the cases
  30. IF (GROUP <> "CASE") and (ILL = "N") THEN GROUP = "CONTROL"
  31. *Label as controls only those not ill
  32.  
  33. SET IGNORE = ON
  34. *Ignore missing values in making tables, so that they will be 2 x 2
  35. SELECT GROUP = "CASE" OR GROUP = "CONTROL"
  36. *Include only cases and controls
  37.  
  38. DEFINE ANYFISH STRING width = 1
  39. DEFINE ANYSHRIMP <A>
  40. DEFINE ANYCLAMS STRING width = 1
  41. DEFINE ANYLOBSTER <A>
  42. *variables can be defined in either of the above two ways
  43.  
  44. IF FISH = "Y" OR FISHSOUP = "Y" THEN ANYFISH = "+" ELSE ANYFISH = "-"
  45. IF SHRIMP = "Y" OR SHRIMPSOUP = "Y" THEN ANYSHRIMP = "+" ELSE ANYSHRIMP = "-"
  46. IF CLAMS = "Y" OR CLAMSOUP = "Y" THEN ANYCLAMS = "+" ELSE ANYCLAMS = "-"
  47. IF LOBSTER = "Y" OR LOBSTRSOUP = "Y" THEN ANYLOBSTER = "+" \
  48.    ELSE ANYLOBSTER = "-"
  49. *Set up variables for combinations of foods
  50.  
  51. DEFINE AGEGROUP STRING width = 9
  52. RECODE AGE to AGEGROUP BY 10
  53. *Set up age groups
  54.  
  55. HEADER 1 SAN FELIPE CASES AND CONTROLS WITH ONSET JULY 30
  56. ECHO Cases and Controls identified. GROUP is the identifier.
  57. ECHO The variables are:
  58. VARIABLES
  59. *Show a list of variables
  60. ECHO Ready for more commands....
  61. ECHO Try LIST to see the records.
  62. ?EPI6> ?
  63. ECHO
  64. ECHO    Now type TABLES ANYCLAMS ILL to see an enormous odds ratio.
  65. ?EPI6> ?
  66. ECHO    You should, of course, make tables of other exposure variables
  67. ECHO    by illness status, for example, TABLES ANYLOBSTER ILL, to test
  68. ECHO    other hypotheses.  Press <F3> to see the available variables.
  69. ECHO
  70. ECHO    When you are through experimenting, press <F10> to return to the
  71. ECHO    menu.
  72.  
  73. ECHO
  74.  
  75. *Provide a message to the user and return to interactive mode
  76. *   for further commands....
  77.